Apple II Magazines (PO)/Nibble Volume 12, No. 02 (1991-02)(MindCraft Publishing)(Side A)[a].zip/Nibble Volume 12, No. 02 (1991-02)(MindCraft Publishing)(Side A)[a].po/BRICKO.bas

BASIC Source File | 1996-12-24 | 623b | 2 lines

1  VTAB 21: PRINT "ARROWS  - FAST    , <-ROT-> . ": PRINT "I,J,K,M - SLOW     ESC - END": PRINT "SPC - LAY BRICK   GOTO1-RESUME": IF Q = 0  THEN  FOR S = 0 TO 10: READ A: POKE S,A: POKE 230 +S,0: NEXT : DATA 1,,3,,53,62,63,39,44,173,: HGR : HCOLOR= 3: HPLOT 0,0: CALL 62454:X = 16:Y = 153: SCALE= 5
2 R = R +64 *((R <2) -(R >64)) +2 *((Q = 46) -(Q = 44)): ROT= R: XDRAW 1 AT X -N,Y -N: GET Q$:Q =  ASC(Q$):N = Q = 32: ON N GOTO 2:X = X +(Q = 75) -(Q = 74) +22 *((Q = 21) -(Q = 8)):X = X +22 *((X <15) -(X >264)):Y = Y +(Q = 77) -(Q = 73) +12 *((Q = 10) -(Q = 11)):Y = Y +12 *((Y <15) -(Y >154)): XDRAW 1: IF Q < >27  THEN 1